home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ OEM Info Model.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  2.3 KB  |  89 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="4"
  4. "UIPATH 1"="Appearance\OEM Branding"
  5. "NAME"="OEM General"
  6. "VERSION"="2.04"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="OEM Name"
  9. "TEXT 2"="Computer Model"
  10. "TEXT 3"="Support URL"
  11. "TEXT 4"="Local HTML file"
  12. "DESCRIPTION 1"="To see these values, select "Start" | "Settings" | "Control Panel" and click "System"."
  13. "DESCRIPTION 2"="You can create your own computer ;-)."
  14. "DESCRIPTION 3"="NOTICE: "Support URL" and "Local HTML file" require Windows 2000 or above to work properly." 
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"=" "
  20. "COMMENT 3"="Thanks to CptSiskoX [CptSiskoX@FlashMail.Com] for the Windows 9x part!"
  21. "COMMENT 4"="Thanks to Eniac [star867@earthlink.net] for the "no <Model> text set" bug notice."
  22.  
  23.  
  24. 'Declaration of some constants
  25. sT="General"
  26.  
  27. sI="OEMINFO.INI"
  28. sI=GetWinSysDir & sI 
  29.  
  30.  
  31. 'Called when the Plugin is started
  32. Sub Plugin_Initialize
  33.  s=IniReadValue(si,st,"Manufacturer")
  34.  
  35.  'Cheating OK... but how cares??!?!?!
  36.  if IsEmpty(s) then
  37.   SetUIElement 1,"Xteq Systems"
  38.  else 
  39.   SetUIElement 1,s
  40.  end if
  41.  
  42.  s=IniReadValue(si,st,"Model")
  43.  SetUIElement 2,s
  44.  
  45.  s=IniReadValue(si,st,"SupportURL")
  46.  SetUIElement 3,s
  47.  
  48.  s=IniReadValue(si,st,"LocalFile")
  49.  SetUIElement 4,s
  50. End Sub
  51.  
  52. 'Called when the Plugin should validate the Data the user has entered
  53. Sub Plugin_CheckData(ElementIndex)
  54. End Sub
  55.  
  56. 'Called when the Plugin should apply the changes
  57. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  58.  s=GetUIElement(1)
  59.  Call IniWriteValue(si,st,"Manufacturer",s)
  60.  
  61.  s=GetUIElement(2)
  62.  Call IniWriteValue(si,st,"Model",s)
  63.  
  64.  s=GetUIElement(3)
  65.  Call IniWriteValue(si,st,"SupportURL",s)
  66.  
  67.  s=GetUIElement(4)
  68.  Call IniWriteValue(si,st,"LocalFile",s)
  69.  
  70.  
  71.  
  72.  Call CheckFile
  73. End Sub
  74.  
  75. 'Called when the Plugin is about to be removed from memory
  76. Sub Plugin_Terminate
  77. End Sub
  78.  
  79. Sub CheckFile
  80.  bDispWarning1=false
  81.  
  82.  s=IniReadValue(si,st,"Manufacturer")
  83.  If len(s)=0 then bDispWarning1=true
  84.  
  85.  If bDispWarning1=true then
  86.     Call MsgWarning("No <OEM Name> text set, this value is required to have any OEM items displayed. Please set it through the 'General Information' plug-in or your changes will not be visible.")
  87.  end if
  88. End Sub
  89.